flowchart LR
subgraph Priors
mean0[Mean = 0]
sd10[Standard Deviation = 10]
np[Normal Prior]
mean0 --> np
sd10 --> np
end
np --> A
np --> C
A[distance] --> B(inv-logit probability)
C[arsenic] --> B
subgraph Likelihood
B --> D{Swtich}
end